if ($argc != 5)
    Error ("Expected arguments - FileName, PSName, FamilyName, FaceName")
endif

Open($1)
SetFontNames($argv[2], $argv[3], $argv[4])
Generate($1:r + ".ttf")
